unit U_Confirma;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, uFunRede, ExtCtrls;

type
  TF_Confirma = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
     vNao,bBotao : Boolean;
    { Public declarations }
  end;

var
  F_Confirma: TF_Confirma;

implementation

{$R *.DFM}

procedure TF_Confirma.BitBtn1Click(Sender: TObject);
begin
  vNao:=True;
  Self.Close;
end;

procedure TF_Confirma.FormShow(Sender: TObject);
begin
  MessageBeep(32);
  If bBotao = true then
    BitBtn2.SetFocus
end;

procedure TF_Confirma.BitBtn2Click(Sender: TObject);
begin
  vNao:=False;
  Self.close;
end;

procedure TF_Confirma.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TF_Confirma.FormCreate(Sender: TObject);
begin
  ArredondaComponentes(F_Confirma);
end;

end.
